DATA: lt_sp_poid TYPE TABLE OF bapiproptb,
ls_sp_poid TYPE bapiproptb,
ls_al_doc TYPE toadt,
lv_ar_object type toadv-ar_object, " Dokumentart
lv_al_doc_desc TYPE BAPIEDESCR.
ls_otype_para-otype = lv_ar_object.
CALL FUNCTION 'SRM_AI_GET_OTYPE_PARAMETERS'
EXPORTING
im_scnid = 'Z_HUMAN_RESOURCES'
im_otype = ls_otype_para-otype
im_ocateg = 'Z_AL_DOC'
im_aspect = space
IMPORTING
ex_otype_para = ls_otype_para
EXCEPTIONS
parameters_not_found = 1
OTHERS = 2.
ls_sp_poid-name = 'CREP_ID'.
ls_sp_poid-value = ls_al_doc-contrep_id.
APPEND ls_sp_poid TO lt_sp_poid.
ls_sp_poid-name = 'DOC_CLASS'.
ls_sp_poid-value = ls_al_doc-doc_class.
APPEND ls_sp_poid TO lt_sp_poid.
ls_sp_poid-name = 'DOC_ID'.
ls_sp_poid-value = ls_al_doc-arc_doc_id.
APPEND ls_sp_poid TO lt_sp_poid.
CALL FUNCTION 'BAPI_RECORD_ADDELEMENT'
EXPORTING
objectid = ls_record_doc_id-objid
documentclass = ls_record_doc_id-class
sps_id = ls_otype_para-el_sps_id
anchor = ls_otype_para-el_anchor
description = lv_al_doc_desc
IMPORTING
return = lv_return
TABLES
element_sp_poid = lt_sp_poid.
COMMIT WORK.